home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 November & December / rerun-1987-11-12.d64 / super sort 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  55 lines
  1. 100 srt=50000:fork=srttosrt+331:readn:c=c+n:pokek,n:next
  2. 110 if c<>42632 then print"error in data statements!":end
  3. 120 dim x$(10),x%(10),x(10)
  4. 130 print"[147]press any key to see string sort"
  5. 140 geta$ : if a$="" then 140
  6. 150 print"the unsorted strings are:"
  7. 160 for k=1 to 10 : read x$(k) : print tab(10);x$(k) : next k
  8. 170 sys srt,x$(1),10
  9. 180 print"the sorted strings are:"
  10. 190 for k=1 to 10 : print tab(10);x$(k) : next k
  11. 200 print"press any key to see integer sort"
  12. 210 geta$ : if a$="" then 210
  13. 220 print"the unsorted integers are:"
  14. 230 for k=1 to 10 : read x%(k) : print tab(10);x%(k) : next k
  15. 240 sys srt,x%(1),10
  16. 250 print"the sorted integers are:"
  17. 260 for k=1 to 10 : print tab(10);x%(k) : next k
  18. 270 print"press any key to see float number sort"
  19. 280 geta$ : if a$="" then 280
  20. 290 print"the unsorted float values are:"
  21. 300 for k=1 to 10 : read x(k) : print tab(10);x(k) : next k
  22. 310 sys srt,x(1),10
  23. 320 print"the sorted float values are:"
  24. 330 for k=1 to 10 : print tab(10);x(k) : next k
  25. 340 print"press any key to see offset string sort"
  26. 350 geta$ : if a$="" then 350
  27. 360 input"sort on which character";n
  28. 370 print"the unsorted strings are:"
  29. 380 for k=1 to 10 : read x$(k) : print tab(10);x$(k) : next k
  30. 390 sys srt,x$(1),10,n
  31. 400 print"the sorted strings are:"
  32. 410 for k=1 to 10 : print tab(10);x$(k) : next k
  33. 1000 data 32,253,174,32,139,176,133,251,132,252,165,13,201,255,240,12,165,14
  34. 1010 data 208,4,169,5,208,6,169,2,208,2,169,3,133,53,32,121,0,201,44,240,9,162
  35. 1020 data 11,208,2,162,14,76,55,164,32,131,174,32,170,177,201,128,176,241,132
  36. 1030 data 25,133,26,165,53,201,3,208,29,169,0,133,20,32,121,0,201,44,208,18,32
  37. 1040 data 131,174,32,170,177,132,20,133,21,165,21,208,206,132,20,198,20,165,25
  38. 1050 data 208,5,165,26,208,1,96,165,25,133,7,165,26,133,8,165,251,133,253,165
  39. 1060 data 252,133,254,165,7,208,2,198,8,198,7,208,29,165,8,208,25,165,25,208,2
  40. 1070 data 198,26,198,25,24,165,251,101,53,133,251,165,252,105,0,133,252,169,1
  41. 1080 data 208,192,24,165,253,101,53,133,253,165,254,105,0,133,254,160,0,165,53
  42. 1090 data 201,5,208,2,240,83,201,2,208,2,240,108,177,251,133,27,209,253,144,4
  43. 1100 data 177,253,133,27,197,20,144,186,56,229,20,133,27,200,177,251,133,29
  44. 1110 data 177,253,133,31,200,177,251,133,30,177,253,133,32,164,20,177,29,209
  45. 1120 data 31,144,7,176,9,200,198,27,208,243,169,0,240,130,160,0,177,251,72,177
  46. 1130 data 253,145,251,104,145,253,200,196,53,144,241,176,233,165,251,164,252
  47. 1140 data 32,162,187,32,15,188,165,253,164,254,32,162,187,169,4,133,18,24,32
  48. 1150 data 22,176,165,98,240,208,208,202,200,177,251,133,2,136,177,251,164,2,32
  49. 1160 data 145,179,32,15,188,200,177,253,133,2,136,177,253,164,2,32,145,179,169
  50. 1170 data 1,208,209,32
  51. 2000 data horse,zebra,gorilla,cat,aardvark,quail,snake,cow,dog,hippopotamus
  52. 2010 data 123, 789, 456, 0, -2345, 999, 6, 12345, -1,1
  53. 2020 data 1.23, 78.9, 2.13e15, -46.443, 0, 12, -55e-12, 66.5, -66.5, 213
  54. 2030 data horse,zebra,gorilla,cat,aardvark,quail,snake,cow,dog,hippopotamus
  55.